home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 2003 August / MW 8 2003 CD1.iso / Inside Macworld / Product News / gimp-1.2.4.sit / gimp-1.2.4 / plug-ins / perl / examples / perlotine < prev    next >
Encoding:
Text File  |  2000-12-20  |  7.4 KB  |  231 lines
  1. #!/usr/app/bin/perl
  2.  
  3. eval 'exec /usr/app/bin/perl  -S $0 ${1+"$@"}'
  4.     if 0; # not running under some shell
  5.  
  6. # <sjburges@gimp.org>
  7. # This is tigert's request.  I suppose it'll be useful to those that do
  8. # this sort of thing.  Personally I'll probably only run it to test and
  9. # put up a demo image.
  10.  
  11. # Since updated a couple times by others, and intgrated by me:
  12. # 
  13. # Bruce Miller                              (fixed to accomdate 1.1.x changes)
  14. # Brendon and Wendy Humphrey <brendy@swipnet.se> (progress bar, nice comments)
  15. #
  16. # Tuomas Kuosmanen <tigert@gimp.org>
  17. # Fixed some things to make this work with cvs gimp. Fixed calls to
  18. # gimp_get_guide_orientation() (guide types that changed from
  19. # GUIDE_VERTICAL to VERTICAL and horizontal, respectively.  Should
  20. # work now). Also convert to indexed parameters changed, fixed them too.
  21. #
  22. # <sjburges@gimp.org> 
  23. # Added changes to make progess bar work for images with only horizontal
  24. # or vertical guides.  This was fixed at one time, I forget who did that.
  25. # Somehow it got broke again ;(
  26. #
  27. # Added File::Path; for making the directory if it doesn't already exist.
  28. #
  29. # If you have more additions, etc please don't hesitate to send them in!
  30.  
  31. use File::Path;
  32.  
  33. use Gimp;
  34. use Gimp::Fu;
  35. use Gimp::Util;
  36.  
  37. # Uncomment if you want to see everything that's going on.
  38. # Gimp::set_trace(TRACE_ALL);
  39.  
  40. #
  41. # Generates an ordered list of all existing vertical guides.
  42. #
  43.  
  44. sub get_vguides {  
  45.     my ($img)=@_;
  46.     $i=0;
  47.     my @vguides;
  48.     while ($i=$img->find_next_guide($i)) {
  49.         if ($img->get_guide_orientation($i) == &Gimp::VERTICAL){
  50.             $keyval = sprintf("%4d", $img->get_guide_position($i));
  51.             $vkeys{$keyval} = $i;
  52.             }
  53.         }
  54.     foreach $key(sort (keys %vkeys)) {
  55.         # print "Unshifting ",  $key, "\n";
  56.         push @vguides, $vkeys{$key};
  57.         }
  58.     return @vguides;
  59.     }
  60.  
  61. #
  62. # Generates an ordered list of all existing horizontal guides.
  63. #
  64.  
  65. sub get_hguides { 
  66.     my ($img)=@_;
  67.     $i=0;
  68.     my @hguides;
  69.     while ($i=$img->find_next_guide($i)) {
  70.         if ($img->get_guide_orientation($i) == &Gimp::HORIZONTAL){
  71.             $keyval = sprintf("%4d", $img->get_guide_position($i));
  72.             $hkeys{$keyval} = $i;
  73.             }
  74.         }
  75.     # need to sort them in order of their occurance in the image
  76.     foreach $key(sort keys %hkeys) {
  77.         push @hguides, $hkeys{$key};
  78.         }
  79.     return @hguides;
  80.     }
  81.  
  82. #
  83. # Duplicate, crop and save the image fragment.
  84. #
  85.  
  86. sub dosel { 
  87.     ($img, $savepath, $imgpath, $imgbasename, $extension, $l,$r,$t,$b, $i,$j) = @_;
  88.     $filename =~ m/^(.*)\.[^\.]*$/ ;
  89.     $imgname = "$imgbasename-$i-$j.$extension";
  90.     $tmpimg = $img->channel_ops_duplicate;
  91.     # print "Cropping from $l to $r, $t to $b\n";
  92.     $tmpimg->crop($r-$l, $b-$t, $l, $t);
  93.     $tmpimg->Gimp::Fu::save_image("$savepath$imgpath$imgname","$savepath$imgpath$imgname");
  94.     $tmpimg->delete;
  95.     return "$imgpath$imgname"; # what I want printed in html
  96.     }
  97.  
  98. #
  99. # HTML Table Generation Functions
  100. #
  101.  
  102. sub html_table_start {
  103.     ($fn,$cellpadding,$cellspacing,$border,$capatalize) = @_;
  104.     $str = $capatalize ? 
  105. "<TABLE CELLSPACING=$cellspacing CELLPADDING=$cellpadding BORDER=$border>\n" :
  106. "<table cellspacing=$cellspacing cellpadding=$cellpadding border=$border>\n" ;
  107.     print $fn $str;
  108.     }
  109.  
  110. sub html_table_row_start {
  111.     ($fn, $capatalize) = @_;
  112.     $str = $capatalize ? "\t<TR>\n" : "\t<tr>\n";
  113.     print $fn $str;
  114.     }
  115.  
  116. sub html_table_entry {
  117.     ($fn, $imgname, $width, $height, $capatalize) = @_;
  118.     $str = $capatalize ? 
  119. "\t\t<TD><IMG ALT=\" \" SRC=\"$imgname\" WIDTH=\"$width\" HEIGHT=\"$height\"></TD>\n" :
  120. "\t\t<td><img alt=\" \" src=\"$imgname\" width=\"$width\" height=\"$height\"></td>\n";
  121.     print $fn $str;
  122.     }
  123.  
  124. sub html_table_row_end {
  125.     ($fn, $capatalize) = @_;
  126.     $str = $capatalize ? "\t</TR>\n" : "\t</tr>\n";
  127.     print $fn $str;
  128.     }
  129.  
  130. sub html_table_end {
  131.     ($fn, $capatalize) = @_;
  132.     $str = $capatalize ? "</TABLE>\n":"</table>\n";
  133.     print $fn $str;
  134.     }
  135.  
  136. # <tigert> Save-path: [_____________________][browse]
  137. # <tigert> html-file name: [_________________]
  138. # <tigert> image-basename [__________________]
  139. # <tigert> [x] use separate dir for images
  140. # <tigert> image directory: [___________________]
  141.  
  142. # later, decided to have UPPER/lower case HTML toggle
  143. # cellspacing: ___^
  144.  
  145. register "perlotine",
  146.  "Guilotine implemented ala perl, with html output",
  147.  "Add guides to an image.  Then run this.  It will cut along the guides, and give you the html to reassemble the resulting images.",
  148.  "Seth Burgess",
  149.  "Seth Burgess <sjburges\@gimp.org>",
  150.  "1999-03-19",
  151.  N_"<Image>/Filters/Web/Perl-o-tine...",
  152.  "*",
  153.  [
  154.   [PF_STRING, "save_path", "The path to export the HTML to",$ENV{HOME}],
  155.   [PF_STRING, "html_file_name", "Filename to export","perlotine.html"],
  156.   [PF_STRING, "image_basename", "What to call the images","perlotine"],
  157.   [PF_RADIO,  "image_extension", "The format of the images: {gif, jpg, png}", "gif", [gif => "gif", jpg => "jpg", png => "png"]],
  158.   [PF_TOGGLE, "separate_image_dir", "Use a separate directory for images?",0],
  159.   [PF_STRING, "relative_image_path", "The path to export the images to, relative to the Save Path", "images/"],
  160.   [PF_TOGGLE, "capitalize_tags", "Capatalize HTML tags?", 0],
  161.   [PF_SPINNER, "cellspacing", "Add space between the table elements", 0, [0,15,1]],
  162.   ], sub {
  163.  
  164.     my($img,$layer,$savepath, $htmlname, $imgbasename, $extension, $separate, $imgpath, $capatalize, $cellspacing) =@_;
  165.  
  166.     @vert = get_vguides($img);
  167.     @horz = get_hguides($img);
  168.  
  169.     if (!(scalar(@vert) || scalar(@horz))) {
  170.         die __"No horizontal or vertical guides found. Aborted.";
  171.         }
  172.  
  173.    # 
  174.    # Progress Bar
  175.    # 
  176.  
  177.    Gimp->progress_init("Perl-o-Tine");
  178.    $progress_increment = 1/( (scalar(@horz)+1) * (scalar(@vert)+1) );
  179.    $progress = 0.0;
  180.    
  181.    # (Debugging info for the guide functions)
  182.  
  183.    # print @vert, " LEN = ", scalar(@vert), "\n";
  184.    # print @horz, " LEN = ", scalar(@horz), "\n";
  185.    # foreach $guide (@vert) {
  186.    #        print $img->get_guide_position($guide), "\n";
  187.    #        }
  188.  
  189.   #
  190.   # Correctly format paths and filenames
  191.   # 
  192.   if (!($savepath=~ m,/$,)) {  # add a trailing slash if its not on there
  193.       $savepath = $savepath . "/";
  194.    }
  195.  
  196.    if (!($imgpath=~ m,/$,)) {  # add a trailing slash if its not on there
  197.     $imgpath= $imgpath . "/";
  198.    }
  199.    if (!$separate) { $imgpath = ""; }
  200.  
  201.     # create paths if they don't already exist
  202.     mkpath($savepath);
  203.     mkpath($savepath . $imgpath);
  204.  
  205.     # open HTML file for writing 
  206.     open FILE, ">$savepath$htmlname" or die "Couldn't open $savepath$htmlname: $!\n";
  207.  
  208.     $top=0;
  209.     html_table_start(\*FILE,0,$cellspacing,0,$capatalize);
  210.     for ($i=0; $i<=scalar(@horz); $i++) {
  211.         $bot = ($i>$#horz) ? $img->height : $img->get_guide_position($horz[$i]);
  212.         html_table_row_start(\*FILE, $capatalize);
  213.         $left=0;
  214.         for ($j=0; $j<=scalar(@vert); $j++) {
  215.             $right = ($j>$#vert) ? $img->width : $img->get_guide_position($vert[$j]);
  216.             $imgname = dosel($img, $savepath, $imgpath, $imgbasename, $extension, $left, $right, $top, $bot, $i, $j);
  217.             html_table_entry(\*FILE, $imgname, $right-$left, $bot-$top, $capatalize);
  218.             $left = $right + $cellspacing;
  219.  
  220.             # Increment the progress bar
  221.             $progress += $progress_increment;
  222.             Gimp->progress_update ($progress);
  223.             }
  224.         html_table_row_end(\*FILE, $capatalize);
  225.         $top = $bot + $cellspacing;
  226.         }
  227.     html_table_end(\*FILE, $capatalize);
  228.     return();
  229. };
  230. exit main;
  231.